home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / util / gnu / oleo_src.lha / src / dld.pch < prev    next >
Text File  |  1992-07-27  |  4KB  |  143 lines
  1. *** dld.c.~1~    Mon Apr 15 17:56:07 1991
  2. --- dld.c    Mon Apr 15 18:12:35 1991
  3. ***************
  4. *** 184,189 ****
  5. --- 184,192 ----
  6.   /* Count the number of global symbols referenced and not defined.  */
  7.   int dld_undefined_sym_count = 0;
  8.   
  9. + /* Where to look for files to link */
  10. + char *dld_search_path = ":/usr/lib:/usr/local/lib";
  11. + 
  12.   /* internal format of relocation info entry. */
  13.   struct dld_reloc_info {
  14.       /* corresponding symbol table entry. */
  15. ***************
  16. *** 1436,1441 ****
  17. --- 1439,1445 ----
  18.       }
  19.   } /* perform_relocation */
  20.   
  21. + 
  22.   /* given a file name, create an appropriate file_entry for it */
  23.   static struct file_entry *
  24.   make_entry (filename)
  25. ***************
  26. *** 1449,1458 ****
  27.       (char *) _dld_malloc (strlen (filename) + 1);
  28.       strcpy (entry->local_sym_name, filename);
  29.       
  30. -     if (filename[0] != '/') {
  31. -     char name[MAXPATHLEN];
  32. -     entry->filename = concat (getwd(name), "/", filename);
  33. -     }
  34.       entry->chain = _dld_latest_entry;
  35.       entry->ref_count = 1;
  36.       return entry;
  37. --- 1453,1458 ----
  38. ***************
  39. *** 1900,1906 ****
  40.       return dld_errno;
  41.       }
  42.       
  43. !     _dld_latest_entry = make_entry (object_file);
  44.   
  45.       desc = file_open (_dld_latest_entry);
  46.       
  47. --- 1900,1947 ----
  48.       return dld_errno;
  49.       }
  50.       
  51. !     if (object_file[0] != '/') {
  52. !     char name[MAXPATHLEN];
  53. !     char *tname;
  54. ! 
  55. !     if(dld_search_path && *dld_search_path) {
  56. !         char *path,*path_end;
  57. !         int len;
  58. !         int d;
  59. ! 
  60. !         path=path_end=dld_search_path;
  61. !         for(;;) {
  62. !             path_end=index(path,':');
  63. !             if(!path_end)
  64. !                 len=strlen(path);
  65. !             else
  66. !                 len=path_end-path;
  67. !             if(len) {
  68. !                 strncpy(name,path,len);
  69. !                 name[len]='\0';
  70. !             } else
  71. !                 getwd(name);
  72. ! 
  73. !             tname=concat(name,"/",object_file);
  74. !             d=open(tname,0);
  75. !             if(d>=0) {
  76. !                 close(d);
  77. !                 break;
  78. !             } else
  79. !                 free(tname);
  80. !             if(!path_end) {
  81. !                 tname = concat (getwd(name), "/", object_file);
  82. !                 break;
  83. !             }
  84. !             path=path_end+1;
  85. !         }
  86. !     } else
  87. !         tname = concat (getwd(name), "/", object_file);
  88. ! 
  89. !     _dld_latest_entry = make_entry (tname);
  90. !     free(tname);
  91. !     } else
  92. !     _dld_latest_entry = make_entry (object_file);
  93.   
  94.       desc = file_open (_dld_latest_entry);
  95.       
  96. *** error.c.~1~    Fri Jan 18 01:44:24 1991
  97. --- error.c    Fri Jan 18 02:20:12 1991
  98. ***************
  99. *** 20,26 ****
  100.   
  101.   #include "defs.h"
  102.   
  103. ! static char *errlst[] = {
  104.       "Error 0",
  105.       "cannot open file",            /* 1 DLD_ENOFILE */
  106.       "bad magic number",            /* 2 DLD_EBADMAGIC */
  107. --- 20,27 ----
  108.   
  109.   #include "defs.h"
  110.   
  111. ! /* JF: Modified to be more like the standard system perror() */
  112. ! const char *dld_errlst[] = {
  113.       "Error 0",
  114.       "cannot open file",            /* 1 DLD_ENOFILE */
  115.       "bad magic number",            /* 2 DLD_EBADMAGIC */
  116. ***************
  117. *** 40,45 ****
  118. --- 41,47 ----
  119.       "undefined symbol"            /* 16 DLD_EUNDEFSYM */
  120.       };
  121.   
  122. + const int dld_nerr = sizeof(dld_errlst)/sizeof(char *);
  123.   
  124.   /* Prints out the given string and the error message corresponding to
  125.      dld_errno to the stderr. */
  126. ***************
  127. *** 50,56 ****
  128.       if (str)
  129.       fprintf (stderr, "%s: ", str);
  130.       
  131. !     if (dld_errno < 1 || dld_errno > sizeof (errlst)/sizeof (char *))
  132. !     fprintf (stderr, "Unknown error.\n");
  133. !     else fprintf (stderr, "%s.\n", errlst[dld_errno]);
  134.   } /* dld_perror */
  135. --- 52,58 ----
  136.       if (str)
  137.       fprintf (stderr, "%s: ", str);
  138.       
  139. !     if (dld_errno < 1 || dld_errno > dld_nerr)
  140. !     fprintf (stderr, "Unknown error(%d).\n",dld_errno);
  141. !     else fprintf (stderr, "%s.\n", dld_errlst[dld_errno]);
  142.   } /* dld_perror */
  143.